#include "scheme.h"

int main (int argc, const char * argv[]) {
	Pair *e; /* expression */
	Pair *v; /* value - we hope */

	init();
    yyin = fopen( argv[1], "r" );
		
	/* begining of read-eval-print loop */
	while ( (e = readexp()) != (Pair *) EOF )
	{
		pexp( e );
		printf( "value is: " );
		v = eval( e, env0 );
		pexp( v );
	}
    return 0;
}
